home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / disks / asi105.dms / asi105.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode next >
AMOS Source Code  |  1978-02-23  |  632b  |  35 lines
  1. '
  2. ' hello hackers! 
  3. '
  4. Break Off 
  5. Screen Open 0,320,256,16,L
  6. Curs Off : Hide : Print 
  7. Cls 0
  8. _COPYRIGHT[75]
  9. Run "particle_man.amos"
  10. Procedure _COPYRIGHT[YDISPLAY]
  11.    '  
  12.    Auto View Off 
  13.    '
  14.    Unpack 10 To 7
  15.    '
  16.    For Y=2 To Screen Height/2 Step 2
  17.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  18.       Screen Offset 7,,Screen Height/2-Y
  19.       View 
  20.       Wait Vbl 
  21.    Next 
  22.    '
  23.    Wait 100
  24.    '
  25.    For Y=Screen Height/2 To 0 Step -8
  26.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  27.       Screen Offset 7,,Screen Height/2-Y
  28.       View 
  29.       Wait Vbl 
  30.    Next 
  31.    '
  32.    Screen Close 7
  33.    Auto View On 
  34.    '
  35. End Proc